(vc-find-file-hook): Follow multiple links all the way.

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 38b91ddef85057cd1d8115a68efe10bce46e796a..5005c30383a081608380e7bccfe6546966e6c826 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -953,7 +953,7 @@ control system name."
             (make-local-variable 'backup-inhibited)
             (setq backup-inhibited t))))
      ((let* ((link (file-symlink-p buffer-file-name))
-            (link-type (and link (vc-backend link))))
+            (link-type (and link (vc-backend (file-chase-links link)))))
        (if link-type
             (cond ((eq vc-follow-symlinks nil)
                    (message